home *** CD-ROM | disk | FTP | other *** search
/ Amiga Games Extra 1996 June / Amiga Games Extra 1996 #6.iso / userbox / publicdomain / mui_wbpattern / install next >
Text File  |  1996-03-23  |  2KB  |  86 lines
  1. ; This is test of many of the features of the Installer
  2. ; Prints out debugging info if run from CLI
  3.  
  4. (transcript "\"MUI_WBPattern\" Install Script Results:")
  5.  
  6. (set prefpath
  7.    (askdir
  8.       (prompt "Where should \"MUI_WBPattern\" be installed?")
  9.       (help @askdir-help)
  10.       (default "SYS:Prefs/")
  11.       (newpath)
  12.    )
  13. )
  14.  
  15. (set @default-dest prefpath)
  16. (set name (tackon prefpath "MUI_WBPattern"))
  17.  
  18. (copyfiles
  19.     (prompt ("Copying MUI_WBPattern to \"%s\" drawer..." prefpath))
  20.     (help @copyfiles-help)
  21.     (source "Prefs/")
  22.    (all)
  23.     (dest prefpath)
  24.     (confirm)
  25. )
  26.  
  27. (set startup-path
  28.    (askdir
  29.       (prompt "Where should the startup icon be installed?")
  30.       (help @askdir-help)
  31.       (default "SYS:WBStartup/")
  32.    )
  33. )
  34.  
  35. (copyfiles
  36.     (prompt ("Copying MUI_WBPattern startup icon to \"%s\" drawer..." startup-path))
  37.     (help @copyfiles-help)
  38.     (source "WBStartup/")
  39.    (all)
  40.     (dest startup-path)
  41.     (confirm)
  42. )
  43.  
  44. (tooltype
  45.    (prompt ("Changing default tool for startup icon to \"%s\"" name))
  46.    (dest (tackon startup-path "MUI_WBPattern"))
  47.    (setdefaulttool name)
  48.    (noposition)
  49. )
  50.  
  51. (tooltype
  52.    (prompt "Freeing icon position...")
  53.    (dest name)
  54.    (noposition)
  55. )
  56.  
  57. (if (askbool (prompt "Do you want the documentation installed?") (help @askbool))
  58.    (
  59.       (set doc-path
  60.          (askdir
  61.             (prompt "Where should the documentation icon be installed?")
  62.             (help @askdir-help)
  63.             (default prefpath)
  64.          )
  65.       )
  66.       (copyfiles
  67.          (prompt ("Copying Documentation to \"%s\"" doc-path))
  68.          (help @copyfiles-help)
  69.          (source "")
  70.          (pattern "MUI_WBPattern.guide#?")
  71.          (dest doc-path)
  72.          (confirm)
  73.       )
  74.       (if (>= (getversion) 39)
  75.          (set doc-tool "Multiview")
  76.          (set doc-tool "Amigaguide")
  77.       )
  78.       (tooltype
  79.          (dest (tackon doc-path "MUI_WBPattern.guide"))
  80.          (setdefaulttool doc-tool)
  81.          (noposition)
  82.       )
  83.    )
  84. )
  85.  
  86.